tableOLS <- function(formulas,y=data,...){
	require(lmtest)
	foo <- vector("list",length(formulas))
	for(i in 1:length(formulas)){
		foo[[i]] <- lm(substitute(i,list(i=formulas[i])), data=y)
			}
	return(foo)
}
